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[0023] First, in step 101, it is determined whether or not there is an 
array, in an array table 30, whose placement destination has not been 
determined. If there is such an array, the process moves to Step 102. 
In Step 102, referring to a dist information field 302, it is judged 
whether or not the array is specified by the dist directive. If the array 
is specified, the process moves to Step 103, and the placement 
destination of the array is set as a private space. In other words, 
"private" is registered in a placement destination field 304. In the 
example in FIG. 3, this step is applied to arrays a' and b'. On the other 
hand, in the case where the array is not specified by the dist directive, 
the process moves to Step 104, and the placement destination of the 
array is set as a shared space. In other words, "shared" is registered 
in the placement destination field 304. In the example in FIG. 3, this 
step is applied to arrays a and b of main and dsm_sub. 
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Example of Input Program 



1 : program main 
2: real a(100) ,b<100) 
3: call dsm_sub (a, b) 
4: call nip_sub(a,b) 

5 : end 

11: subroutine dsm_sub(a,b) 
12: real a(100) ,b(100) 

13 : i $omd parallel do 
14: do i = 1 ,99 

IS: a(i) — b(i + l) I communication via DSM 

1 6 : enddo 
17: return 
18: end 

2 1 : subroutine mp_sub ( a • , b ' ) 
22: real a' (100) ,b' (100) 

23: I $omd dist (block) :: a T ,b' 

24: !$orad shadow{0:l) ;: b' 

25: ! $orad reflect (b 1 ) 'communication here 

26: ! $omd parallel do 
27: do k = 1,1000 
28: do i = 1,99 

29: a T (i) = b' (i + 1) ! no communication 

3 0 : enddo 

3 1 r enddo 
32 : return 
33: end 
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54) COMPILING METHOD FOR DISTRIBUTED COMMON MEMORY 

5 7) Abstract: 

'ROBLEM TO BE SOLVED: To solve such a problem that an incremental developing method for 
:orrecting a main part in a program little by little, advancing a tuning while confirming the effect 
;nd bringing out the highest performance from a successive program, has been difficult in a 
conventional case as the program developing method of a distributed memory-type 
nultiprocessor. 

lOLUTION: A compiler where an array is arranged in a common space or a private space for a 
arailel system provided with a distributed common memory mechanism, an inter-processor 
ommunication code is generated on the private array, a regular memory access instruction is 
enerated on the common array and an array copy code between the common space and the 
rivate space is generated, is provided. A user can realize incremental program development for 
perating the program by arranging the array in the common space and using the distributed 
ommon memory mechanism, and arranging the array in the private space only for a kernel part so 
s to clearly control communication. 
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§ L fcE3Wc*t ir^P-fe7 if Palilf! n - F ££j£iT * 
f£] CD n > / W J U ^ £ > e ^. - £ c c t f 5 i± h 1c &b 

(ovm^my'u *tswr & n > tr ^ - zm&&*> 
ajffirj:smi8ttkx$>~ix. ffiittm*. 

0/cE?U(D#Bacc3t orSiSiE^Jor Fu^oy-t»; 

■ LfcEWc*tt,-C:/a-fe sr-frBMfia- K*£fiRT4 
*J«<b. ftW^IR h^Pa1<7>P a ir<DEJd^ f 

-n- K *&STi#*i 4 c £ 4»«<b T 412 

[0 00 1] 

[0 00 2] > 

real a(50),b(51) 
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^DH2^^tC^»L/cy-=fc»;€:«^SfcO^*S. CO) 
^J^yXfA^^^ yS^JU^^'o-tr ^if(CMP) 

iUtr ^-bXr^^^ftW^^r 1 ; (DSM: Distrbuted 
Shared Memory)^tS^:fix.>Sfe^*4 0 T^^^, 

x7{aorliJn4t^, osfc^^xvy bo* 
20 J:<, y"P4z^ifPJOf r --^fEaiciiff)**tc*rs^S 

^W^c4>(7)<f: Lr0penW^^6tiri^ o OpenMPT'CD^* 
[0 0 0 3] 

real a (100). b (100) 
J$0MP parallel do 
do i = 1,99 

a(i) = b(i+l)+... 
enddo 

30 ^2tf9^OpenMPCD|g^^:r$)0 . mk<Odo)V- V'CDWi 
f&TK-T 4 o ^. - if « a(i)^b(Hl)t7^X?n SE9»J 

u< xm^ 0 

[0 0 04 ] — ^r, vMtf*}W<DW\<Dy'a {?y ^ > y^-r 
«. 7*n-fe if P^-CCD r-^<Dfe^, yJ-fyVnV 

Lie J: o r a V icfei^ Ltfc < .jfrmfrOb £ Q 

enMP^'O A£lHjGft^£tf *>tctb<Dy'a i/7S>^ 
[0 0 0 5 ] 
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(3) $m 2002-73579 

3 4 

if(mYPid==l) call MPI_SGnd(b(l) .l.mypid-l) ! £i£ff 

if(mypid=0) call MPI_Recv(b(51) ,l,mvpid+l) ! "f-^Sin 
if(mypid==l) ub=49 
i f (mypi d==0) ub=50 
do i - l,ub 



a(i) = b(i+l) + ... 
enddo 

& -o r i, > £ 0 ^/cge^jbtco^r^^e^f-'-^sffffl 

r, M^co;u-^rb(i + i)<b ur#BS£n&ie?iJb<E>g 
^SSMLri,^ cct, mi^l^^l£S-r^>5taMS 

y«:£*3£>r*IJgtc&6 0 

[0 00 6 ]^ vlz--ismmtt<Dy'W7 z>?<dm 
fi£^T£/c#>CDS't§£ IT, VPP Fortran*^ 6*1 

^JfAT^cicCctor. ^ 7*a^ 7 A 
*SraRtClBjS"C*SJ:^tC-r4<>Or*^. VPP Fortra 

nr ±ieco ^ ? -b - ^iifi :/ n y ^ a <b m 0 ItlT £r tf 9 

[0 00 7] 

real a(100),b(100) 
!xocl processor p(2) 

!iocl indei partition q=(proc=p, index= 1:100) 
txocl local a (/a), b(/q (overlaps (0:1)) 
Ixocl overlapfix(b) 1 "r— 

!xocl spread do /q 

do i = 1,99 
a(i) = b(i+l)+... 

eoddo 

llfSOfiS^rtt. OpenMPV'P AifiUitC. S2?iJ 
a, b(DV- 4 Xit 100CD * * r <fc I > . 2f f B ttWsWgTftXr 

tfB. 4!fa«. ir3J»JS:2^<OP r ci-bv^±tc»SftiB!Br 
4Ci*fg7n"T4. 3 6tCie9>JbCCOCir«. 4?fS<7>ov 
erlap(0:l)<bt^fg7n{Cj: 0. S^O-fe y If r^-** 

S0ouerlapf1ri6*c%K. C ©*« ffl««CCH U r Rig 
y a -fe * -friar R?U83R«:*agT £ Ci^Ltl^ 
5o tffgCDspread dofSrjk^t, 'iSMLO'l'- V'U -fe 



10 ^1f2^r»«ILr||tf-r4Ci«:}g7SL-CC»4 0 CCD 
<b#. b(i+l)i LT#HS^n€>^^, iilBOoverlapf 

5 VPP Fortran£f$^ £, il^O^X^'a 

[ 0 0 0 8 ] VPP FortranJCOOrte. ST5E{£ , it® 
jit&. I^EBff. "VPP Fortran: ftf&M ^ ') SSafc3flJit#« 

fijw^py^s mnmm^mxm, voi.3 

20 6, NO. 7, pp. 1542-1550 (1995) CCj$^< 6 nr t > & D 
[0 00 9] 

[mtf>m®:LJ:5t?2>Bmi sE3fe©*ftr«, ^n 

[0010] DSM^rffiC^cOpenMP^P :7U 

•fe ^ Ufiflilfi tt^- F ■> * T^ostc J: o r BgJKtctf *>n 

30 MBtD/ctf). jl— tf#:?*a^ A^eF- ^ -->y Lti 
[0011] — y -b-^iifi ^"C«, *^^a y 
h'P L ^ * - - > -5 1 k> *> r Y 

i*nccf*5iim©»A^^-^)SjIL«6HO^M*tT 
40 ftCD^iE^rSttT^c VPP Fortran£ffll>fcJ^-Cfe|5] 

[0012] &*JVPP Fbrtran"C«ie^J(C*f Or r 

fctit»*3nrc»fcibrt>. nww 7 ^ 

JtR^4*53&»*3ltf«FK:*iIS-r4J:0<c=i- F**feSfT 

-if^^a^A^»ccocirai(i«:ffAT^ftffl«e 

50 *££n&o L^L. CCDig^. ie^JS3R#flS(0/cc>*tC-7 
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A*6ffl»ur^>^ v s> $ Mcwpy'a ^ a£{^ 

[0 0 14]*^«©1W«, CMR5lW<D-/>*y-rf> 
£ P ^75> ^^USrffifit-r 4 C <h CC&£ 0 

[0015] 

h^HOC^m^CCEBL, 7"^ 
3-K*afefiEly. *WSPJK:iea-b/cE^J{coi»T«3i 20. 

[00 1 6 ] CO=3>^V-5*WfflTSCitCj:0. ^ 
-Ifl*. *-rBW**W2BiecEBl/rDSi«|»«:fflt» 

mc a t- -r -5 c <b cc j; o r . aetM^wccsKapb* 
oiEWtt^-^^K^ieBrsico. 30 
ii/ft 7*p AM^prftK:& 

[00 1 7 ] *»wrtt$6(c. ftw^ra^e^^^^ 
- ^jrcc n tr - it ^ p -fe ? wvm * y «c» g ff w 

x.. «fcy*y?B»«*BiJ«"C#S. 
[0018] 40 
[»WOH*OJB«] Butt. 

<30-Wi»««:*jW £ =3 ^ ^Qffifi^-r ? p - ^ 

[0019] H2CD^*py^ AtJmainatfa-'Sffa), d 
sm_sub(lltf g - lMf g ) . mp_sub(2ltf g — 3 3?f g )<0 = 
0(D ;b - * 6 ffif& i tl £ o mai n© 2?T g teE?iJ<D m. 

WX~c$>K>, S^ioo<@<DS^6^^z:o(Die?iJafcJ: 

0'b€IftrC^ 0 Cft6©E?IJtt. mainC03tfg*5J: 50 
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^CE»i&^. E^J«3(XDEJU«7 -f-il/ F 300, B 
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36c^r. ^Kia^JOEait*^^^- Fsmt* 

ST^ 0 -?Ut>%, EB5fe^ y K304CC TprivateJ 
03(D^lr«. E^Ja'fe^O'bHC^t^r, 

Eajfe*ftwsmt»s-rs. -r^t>%, EB5t^^- 

;l-K304(C TsharedJ ^liT^> 0 H3©W-C(i, main*5 
<fcC>'dsm_subrt(Die?Uafc<i:a'bk:oiir , > ^ 
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[0 024] VL±.<D^M< f C£-oX'?^X<DmmcttLT 

[0 02 5] X T v y'\Q5T2 \t t shadovtfg^;£:te<£ <>Yef 
lectfgjSXSrR^iitr. 02^2, shadow}g7jV£te:rnp_su 
bCD24tf@. reflectJ&7n5:(i|5}D < mp_suWD25tfg"C* 
S a CO^^shadwrfS****. & :/D -fey INCURS *l 

shacto^g^;££t^jAA,T\ |B?'J^30C0shadowtf ^ 

-;l/K303tctg$B^Si*T^o 

[0 02 6] — reflectfg7nX»shad»rfg7nX-Cfg 

? V- (Dshadow6g*^t t&fcTT £ . 

[002 7] xf 7 ^*io6X? ti, 85 * r ^ 7'"CR<friM, 

/creflectfg^;£tCS^T, ^KHtilff 3- K££fi£ 20 
T 4 . c <D tea tc « n > / * *f 5 *Fa1 I § ec *f u X \ f 
1otiZ>& t c c riiic^-r J: ^ ^ y - x 7 p ^7 a 

t002 8]§4«, S2(DA^^ny^Atc^T€>tB^ 

<* 0^2? i $ccmm 3 n/c S :/ D -b * if ±<D -7 s - * * , 
Jl/-*>£T*. »i5l»ttlES-ri5tffllS3R. Sg23lg* 30 

^7^7'JJb-f>(!:t^ 0 mvpidiiS^n-fe 
-5f£3t-To L/c#oT, 83?fgtJ, yp-bvlfKHTP 

te. POdipiA^Sd L/t7^~ 5 -f*<- h3M 

HrtOb'(5i)K:t»W-r5«ll*a-r. 
[0 0 2 9 ] Hitc^-or, xf-^^io7r». A^?*p 40 

wspjrfc^-w^7-{^- h^ratDii^, xr 

* 7'l08Ctiifr o ^2CDA^^"0^^ At(i, ma 

inO 3ff @ r dsm_sub£ Of ffi U T C » 4 ** . I f» (53 I % 
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:/i08tcilfrC <b&t&&o 

[0 03 0] Xx^^l08"C«, MM*3i»«:*ti,r. ft 

(«T. iffi^ tr-ri- K)*^jS8-rs. W*«mp_sub© 

9?f@^7^$n4<fc^CC, mp.subP^tHLCOHU^^, CMD_a 
rrav_copyiCO ^-Y^^ 'J^aiL/^^fe^-r^o CCt'O 
M3Larray_copvt**l? I»r $ ftfcEW*:Sl23 l»r 

fg^ 3 ft fcK^c =2 f 4 ^ ^ y - * > r * 

ftWSB©K^Ja*5<fcCfb^6^^ ^- h^ra<DK?Ua- 
fcj:^b'^nt'- ^Htf 3 4 o * fcmp_subP? ^ b 

[003 1 ]Xf-; ^109T«. *W^fflfciEaS*xfc 

(D^-t'jr^-fex^^M-r^o 04tc^-rai^^n 

dsm_subp^ "C<Die?fJg^b( i +l)<7)#BStC Wit, ^ 5$C ^ 
ti^cC^J^SfiJtSo lasCC^C^r, r0. rl. Aj: 

<D fit £ 7C CC 3t f @ <D add^^ ^ 6 6? f g add^ ^ ^ TT T b 
(U1)<DT KUX^If^U, U^X^r2tCf§JflLrC^ 
^>o ^COld^^y^UT^-feX^^-C^O, r2T?}§ 
f$n^7 h'UXOrtg, T^^>^b(i+l)<DfS^:r36CP 

[0 0 3 2 ] fetir, @1©3>/^;I/Jffi0^^ 
[ 0 0 3 3 ] mACD&Jjy'V MZ, gtKDy'UiZ v 

i^SE^jafecfc^ttiftw^ratcsBasnrc^^-c, w 

^(7) y p -fer > 6 h <Dft a X. 4 53? f s r If 

snrt^seyija-fcio'b'w^^ h^raitcgeas 
tixi,>z><Dx, -en-eno^p-tr 7tn^^t^i 

[0 0 3 4] Heti. m4<D7'ny j 7A*;miT'?Z>£$ 
x*«/jN^(iiortf^n4 0 cent ^<oif^ 
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XttEMB*20lH#r*4 tIRMT 
(0 0 3 5 ] KWafc <feVW3:±#(l00lHB*)*«ftWgg 

10 

[0 03 6 ] */c. la^Ja'^d^^b'^^P-fe^^^' 
9-f*<- borate, *ti**i5(SS**fctt5iS3R-roE 
g3n^ 0 S2?Ub'<DSm<D(51#@)(DB^«. shadow 

[0 0 3 7] MkEcD^ A ^3 "J ^>GMX_array_copy 20 

«HaiH40Ht?EJ!lt3t:-t4. W*K. 

cal 1 CM)_array_copy(a , a * , . . . ) 

HOa'ClrSODtcnbT-b. Plteft^R8<Da(5l:lOO)£ 
S*©^^- h^fa1CDa , (l:50)^C3f--rao * 

cal 1 CMD_arrav_copy(b , b ' , . . . ) 

v\*. igyubfcjr^b'tc^cirrattoffiaitf^. sstf 30 
[0038] «±^a*w^ffi?ijn tr-ifttrA-saw, 

[0 03 9] 8Wffi{Cfat*4EJKDy >JEI 

■©^^7? e >y*r^o 07K*>t,>-c. 

CDshadowSit^CC^C^r^, I/cWl^-y^ISlt 
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^^^m, ^ocdsp^. r«ct>^««j©i«* 
fcj:c>*«»©shadowfia«tcoiirw. ^tx^nmtcum 

[0 04 0 ] H8ti. 07<D^*UEg£J8l>£ig^£>K 
5a3b--^ffi**r^n-^i>- hrAS. etui-?-/ 
— ^>^_arrav_cc^y<D^r'ifcW^Fa1^6^'^ 

[004 1 ] 08CDXf- ^ ^i20rii, ^W^ra±<D^ fcf 

^c*t l r * ? » ywm zmft? £ . 
[0 04 2]xf^'mru ^K^-t^c^sn* 

1t^<7}#gl|^W<D^>7^ ^X(^7r-B50)^-<>-^ 
[0 043] Xf7^l22tU SIS^-^eECCnf 

- % v p -b v * am mma tc v * f > ^ s n r c > & a> 

[0 0 44] 7 7'i23tU rJt*-5feO^*-7^^- 
[0 045 ] — # , ^ r > 7i24Kj!/^/cig^«:, ^ e* 

flt^f ^^*125r. 3f-5t^7^- F^Pal^iS 

[0 04 6 ] eubrffiyijs tr-«j»DgiWffi©»?B*i» 

[0 047]M(C, ^KDr3>y^^^*»f-r^> 

o. ffi5»Haa!jfe^iB*sa4i. 4>ft8R£tBgR42. fc<to' 
[ o o 4 8 ] m^mm^Am, a^o^^o^r* 

^"C, *rHlfg5O*i0<;-r6 D A^^*n^^ACDF*gg« 
C^^- «H2{CtS 0 /c <t 5 tt 4> <OT ^> £ o ^PalfgsoB > 

^X**f»400J*. JS7nS:*K*iib«ll«:|Qf-r*. 
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f&fr^, Hicpx-r v :/ioo, fecfcO'^-r •> ?105<E>£* 
«*SSfTU E5>«30«:if««:3a»-r*. 
[0049] i59»JES^^SP4i«. BB5»J*30©4«(D 

[0 050] 4>IBHS»942«:tt B SMTa- F£/£SB42 
ofc J: W) n tr - 3 - F £E£8B42i:te J: 'J y ^ ^ 
*f8h&£i£S&422#S*ft4. M{f3- F£f£SB420W:. 

i^j3f-=J- F^JESB42Ki. *«*flfUL©H 
5l»i«5l»©KJB5t^lBIK:«;Dr. BWat-a-K 
©*PBllg^^S;T^o c titemicox r * :/i08<D4Mr 

^^'Jy^-t2X^^fiRgB422«. SW^RfUClr] 
[005 1 ] atty'O ^A^g|543«, ^&£*l/c4> 

mB5o*R*ji^, ^^0^-7^21**^4. j±j 

^^'p A2i<Dp*q^^x.^4tC7nb/cct 5 & 
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300 .301 X 30Z ,303 .304 







distfS^g 


shad o wtS 




a (main) 


(100) 






shared 


b (main) 


(100) 






shared 


a (dsmsub) 


(100) 






shared 


b (dsm_sub) 


(100) 






shared 


a* (mp_sub) 


(100) 


(block) 




private 


b* (mp_sub) 


(100) 


(block) 


(0:1) 


private 
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program mam 
real a(100) ,b<100) 
call d3m_aub(a,b) 
call rnp_sub(a,b) 
end 

subroutine dsnt_sub(a.b) 
real a(100) ,b<100) 
!$omd parallel do 
do i = 1,99 

a(i) = b<i+l| ! DSMt: J: 4>iSil 
enddo 
return 
end 

subroutine mp_sub ( a " , b' ) 
real a' (100) \b' (100) 



!$omd dist (block) :: 
! $omd shadow (0:1) : 
!$orad reflect (b' ) ! 
! $omd parallel do 
do k = 1,1000 
do i = 1,99 

a' (i) = b« (i*l) 
enddo 

enddo 

return 

end 



a' ,b' 
b* 
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51 


: program main 




52 


: real a ( 100 ) , b ( 1 00 ) ! ^^T^ftfl 




53 


: real a * (50 ) . b' ( 51 ) ! "/V'f-^— h&M 




54 


: call dsm sub(a, b) 




55 


: call OMD arrav cODv(a,a* . . . . ) ! fi£^IJ^ t"- 




56 


: call OMD arrav cooy(b.b' ) 1 SM^ \f- 




57 


: call mp_sub {a * , b * ) 




58 


: call OMD arrav coDv(a*.a ) ! fiil^Jn fcf- 




59 


call OMD arrav codv (b ' , b, . . . ) ! EJ5*J3 tf- 




60 


: titid 




71 


: subroutine dsm_sub ( a , b) 






rea j. dtiuif / ,u(iuu/ 




73 


: do 1 = ... ! QyP-t v^O^l^lgffi 




74 


a(i) = b(i + l] ! dsmU <£ &i§fe 




75 


enddo 




76 


return 




77 


end 




81 


subroutine mp_sub { a ' , b T ) 




82 


real a 1 (50) ,b* (51) 




83 


if<mvoid==l> call OMD Send { b ' ( 1 ) .1.0) ! 




84. 


if (mvpid==0) cal 1 OMD Recv (b ' (5 1 ) , 1 , 1 ) ! 




85. 


do k=l,1000 


86: 


do i = ... • fi'/o-t -y*f<r>\n^$m 




87: 


a* (i) = Jt>* (i+ll ! iHs*$L 




88: 


enddo 




89: 


enddo 




90: 


return 




91: 


end 
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dsm_sub: 










r0: b<?)M7Kl/^ rl: iOf 


add 


rl,l,r2 


r2 — i + 1 


sub 


r2 , 1 , r2 


r2 — i+1-1 


mul 


r2,4,r2 


r2 — (i+1-1) *4 


add 


r0.r2,r2 


r2 — rO+<i*-l-l) *4 


Id 


[r2] r3 
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